function HD= frameFilterD( fname )
%This program generates the framelet transform filter.
%parameter:
%fname : the name of the filter. Type : string.
%output:
%HD : the output filter bank. Type :cell.
switch fname
    case 'linear'
        HD{1} = 1/4*[1 2 1];
        HD{2} = sqrt(2)/4*[1 0 -1];
        HD{3} = 1/4*[-1 2 -1];
    case 'B2'
        HD{1} = [1/16 1/4 3/8 1/4 1/16];
        HD{2} = [1/16 -1/4 3/8 -1/4 1/16];
        HD{3} = [-1/8 1/4 0 -1/4 1/8];
        HD{4} = [sqrt(6)/16 0 -sqrt(6)/8 0 sqrt(6)/16];
        HD{5} = [-1/8 -1/4 0 1/4 1/8];
    otherwise
        disp('No such filter bank available');
end
end
        
        